5 PRINT"[147]"
10 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,21:F2=255
30 FORZ=1TO50:POKE54287,F2:REM NO. OF CYCLES
40 FORF1=255TO0STEP-20:POKE54273,F1:F2=F2-.4:NEXTF1:NEXTZ:POKE54278,15
45 LIST